“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


*eF I LE**1D**MEMORYS 


nn NNNYM 
nn NNnNW 
nn nn nn 
own nw ann 
nw nn nw 
nn nw nn 
own On nn 
nn nn nn 
NNNNM nn 
NNNM nw 
>> >> 
>>>> 
>> 
>> 
>>> >>> >> 
>>> >> >>> 
>> 
>> 
>>>> 
>>>> 
4-4-4: aca 
ecacac ca 
aca ca ca 
ca =a ca 
<a zat. 4- 4 
ca ecacae 
ca ca 
ca xa 
@eaeaeaeaeaaecaacaeacaca 
Qaaacaacaancacaacaac 
oooooo0000o 
ooooeo0ce0coo 
oo oo 
oo oo 
oo oo 
ral=) oo 
oo oo 
oo oo 


oooooooooo 
COoOooo00000 


own ANnNn 
Mn NANMMM 
ow nn nn 
nw nw nn 
nn own nn 
mw nw nw 
nw" nn nn 
mn nn nn 
NWN nw 
ANMM mn 
“a ~=— 


LLLLLLLLLL 
LLELLLLLLLL 


1f-$0-1984 00:07:35 vAKeH FORTRAN V5. 4054 


CIMEMORYS.FOR; fae 
Version: *v04-000' 

PARAAAAAAAAAALAAALALALALELE ALE LE SELES ELE ASE EERE EERE EEL ESLER AEE AREAL AS ESCA AAG 
we 

COPYRIGHT . (co hd by 1980, 1982, 1984 B ° 
DIGITAL T CORPORATION, MAYNARD. MASSACHUSETTS. * 
ALL RIGH ¢ URESERVED. - 
THIS SOFTWARE IS pray suco UNDER A LICENSE AND MAY BE USED AND corree * 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PERSON. NO TITLE TO AND OWNERSHIP OF E SOFTWARE IS HEREBY 
Modified by: 


TRANSFERRED. 
pe A hy pes IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 4 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
v03-012 sangese Sharon A. Reynolds 25-Apr-1984 
- Fixed a problem in the micro vax memory support. 
= hg = sye update that adds decoding for 


V03-011 SARO246 Sharon A. Reynolds. 99-Apr-1984 
Added micro vax memory support. 


v03-010 SARO202 Sharon A. Reynolds 27-F eb-1984 
Added the MEMORY_REGISTER_UV) routine. Because memory 
support for the micro vax is not ready it will output a 
pessege. This was done so that the Link of ERF would not 
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v03-009 pe 78 Sharon A. Reyn 193. 70 Nov v-1983 
Fixed the entry headers for 17 and 1 1730 memories. 


v03-008 SAR — aren Se Reynolds, 28-0c t-1983 
haded’ an SYE ypdate 
° pe a d MS/780E 5 iles to weight array numbers 
the second cotnroller by 
> Also added code to count multiple errors being 
ogged by one controller. 
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v03-007 SAR ron A. Reynolds, O-Jun 


0083 gre 
Changed the carriage control in the iterere teed 
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H f for use with ERF. 
C v03-006 SAROOSS Sharon A. Reynolds, 2-Jun-1983 
1 C Made memory display a subroutine and added a routine 
§ C that gets the necessary queue nformation so that ‘memory_q' 
C and Semory disp ay can be Linked with separate images. 
¢ ; Removed brief and cryptic code. 
C v03-005 90003 Brian Porter, 14-APR-1983 
: V/ syndrome bits are inverted so... 
9 C v03-004 BP0004 Brian Porter, 08-MAR-1983 
£9 } Corrected 11/730 memory size. 
Le C v03-003 BP0003 Brian porter 09-NOV-1982 
ie : Corrected bank value for m8750 memories. 
O00? C v03-002 BF0002 Brian Porter, 13-AUG-1982 
Bere : Corrected ms780e memory start address. 
one C v03-001 BP0001 Brian Porter, 04-APR-1982 
= Corrected output conversion error. 


Subroutine MEMORY (Lun,option) 
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Functional description: 


0081 
etd 

Bes 

7 
0087 C This module extracts the varies arguments from the memory error 008¢ 
0088 «= ¢ entry and calls memory.q. The format of @ memory error entry is as 0085 
0089 = ¢ follows. The area occupied by the adaptor TR and registers is 009¢ 
0090 C¢ repeated for the ‘number of controllers’ times. The register area 0091 
9091 C size is dependent on the memory controller of the system being logged. sd 
§ C The error pc and error psl are manufactured by VMS and have no meaning, 4 
009 : therefore they are not printed in any of the reports. 3 
5 C ¢wwooeoeoceoeeceoecoeccocesoscn + i$ 
C ' H pod 
C tee == e 
°\ Ss : header space i 0095 
100 rr ty 010( 
11 tn --+ a 
ae: i Saumiasenaieeninmcidaunne : 104 
; : : : number of controllers i A's 
1 C ‘ adprtor tr# (or equivalent) : 10: 
, : 4 sce se ae Setar scr oeemseooes ’ i's 
1 ¢ t+ --+ 11( 
110 ¢ 11) 
111 ¢ te memory registers --+ 11; 
‘ ‘ 11 
16 C ' i ; 
11 C ves oot VW 
114 C ' : 1 
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B28op- 1882 ts DISKSVMSMASTER: CERF SRCIMEMORYS.FOR: 1° °° 
¢ewomecooean moc anecen eases wenreent 
' error pc ' 
¢oescececen wenrenenzo er eoeenene eae + 
‘ error psl { 
-wmamtarr noe na nasa soe near eeeoaaen + 


include ‘src$:msghdr.for /nolist' 
include ‘src$:syecom.for /nolist' 


byte lun 
character*! option 
integers4 buf fer(0:120) 
integert4 controller_count ‘ 
Integer*4 I : 
Integer *4 LibSextzy 
integert4 compress4 { 
integers4 error_array 3 
integer*4 error_bank 4( 
integers4 error_bit 4! 
integers4 page_Ccount re 
integer*4 array_code 4. 
integert4 decode_ecc rc 
equivalence (emb(16) ,buf fer) a 
equivalence (buf fer (6) ,controller_count) rt 
lLogical*1 10011 4S 
logical*1 10016 3 
24 
if ¢ 2; 
1 Libsextzv(24,8,embSl_hd_sid) .eq. 255 ry 
or. ‘ 
1 LibSextzv(24,8,emb$l_hd_sid) .eq. 1 2 
1) then Ht 
j=0 i 


do 20,i = 1,controller_count 
if (option .ne. ‘R' 
and. 
1 j .eq. 0) then 
call header (lun) 
if (emb$Sw_hd_entry .eq. 5) then 
call logger (lun,*SBI ALERT") 


ee ee ee ee cee ce ee ce ce cee ce ee ce ce cee me ee ee ee ee ce ee aD cD ed ee ed ed ed ad ed od 2d od = -d Wd 8) od od = dd dd 
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=$007 1382 TT DISKSVMSMASTER: LERF , SRCIMEMORYS. FOR: 1 wa! 
else if (emb$Sw_hd_entry .eq. 8) then 
colt logger (lun,"FATAL MEMORY ERROR") 


cath logger (lun, "MEMORY ERROR’) 
endif 
endif 


MS780C 

if (LibSextzv(5,3,buffer(2 + j)) .eq. 0) then 

if (emb$Sw_hd_entry .ne. ‘05'x) then 

if (LibSextzv(28,1,buffer(4 + j)) .eq. 1) then 

if (LibSextzv(4,1,buffer(2 + j)) .eq. 0) then 

all memory_g (emb$Sl_hd_sid,buffer(1 + j) 

Libsextets e butferta )), LibSextzv(21,1,buffer(4+j)), 

1 decode_ecc(LibSextzv(0,8,buffer(4 + j)),buffer(2 + SS) 
else if (LibSextzv(4,1,buffer(2 + j)) .eq. 1) then 


salt memory J (emb$l_hd_sid, buffer (1 
LibSextzv%24,4,buffert4 + j)), LibSe 
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+ j) 
roy 23 | butter sss })). 
1 decode_ece (LibSextzv(0,8,buf fer (4 + j)) buf fer< + j)) 
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91 C 7 
36 C Full report output the TR# and call the MS780C routine to 08 
R? : decode/output the remainder of the entry. 3 
+4 if (option .eq. ‘S") then if 
4 call Linchk (lun,2) 1 
99 write(lun,10) buffer(1 + j) 1§ 
10 format(/' *,"CONTROLLER AT TR #*,i<compress4 (buffer(1 + j))>,'.") if 

¢ call ms780c (lun,buffer(2 + j)) 1é 
endif yi 

5 1 
jeje ( 

ij 

09 C ‘ 
10 ¢ MS780E ( 
13 C t 
8 4 


else if (LibSextzv(5,3,buffer(2 + j)) .eq. 3) then 
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if (emb$Sw_hd_entry .ne. '05'x) then 
if (LibSextzv(28,1,buffer(4 + j)) .eq. 1) then 


FRR 


a 3 


( 
call memor (emb$l_hd_sid,buffer(1 + j) i 
§ 1 Ree § pS treors + H sinberezy tee 2,bu fer sassy), | 
0 1 decode_ecc(libSextzv(0,7,buffer(4 + j)) ,buffer(2 + j)) 
1 Endif H 
: § If (LibSextzv(28,1,buffer(5 + j)) .eq. 1) then : rf 
5 all _memor (emb$l_hd_sid,buffer(1 + j), 4) 
3 1 Clib extry 24 Sebut ters + 1356): inbeseay 22 gobi fertses2). 6 4¢ 
04 1 decode_ecc(LibSextzv(0,7,butfer(5 + j)),bufferte + j))) 024; 
be ; Endif y 
t < 4é 
04 1 LibSextzv(18,2,buffer(2 + j)) .ne. 0 8 re 
.or. 
8 ; : LibSextzv(7,1,buffer(3 + j)) .eq. 1 8 ry 
.or . 
Be 5 : LibSextzv(7,1,buffer(4 + j)) .eq. 1 35 
.or. 
04 1 LibSextzv(7,1,buffer(5 + j)) .eq. 1 5 
0438 i} thea werersy,* Ee ae 0254 
0640 call menory.q (emb$\_hd_sid,buffer(1 + j),-1,-1,-1) 0954 
en 
Bees endif 0951 
0444 C 026 
0445 C Full report output the TR# and call the MS780E routine to 0261 
Q6ug c decode/output the remainder of the entry. 6 $¢ 
ont if (option .eq. 'S') then 8 re 
0450 call Linchk (lun,2) ose 
31 write(lun,10) buffer(1 + j) 8 o! 
“a call ms780e (lun, buffer(2 + j)) 0565 
2 endif 7¢ 
32 71 
37 bales z 
3 ¢ 
$9 : MA780 
? else if (LibSextzv(5,3,buffer(2 + j)) .eq. 2) then 
o if (emb$w_hd_entry .ne. '05'x) then 8¢ 
ry if (LibSextzvy (28,1,buffer(6 + j)) .eq. 1) then < 
68 all memory_q (emb$l_hd_sid,buffer(1 + j) d 
$9 j LibsextzvTsé 4 pS treore + 1 iadentgyt2s 1,bu ter(osj)), : 
0 1 decode_ecc(Lib$extzv(0,8,buffer(6 + j)),buffer(2 + j)) 


é 


2 “option .eq. 'R’) then 

error_array = Lib$Sextzv(9,15,buffer(2)) 

10011 = . false. 

10016 = .false. 

if (jiand(buffer(4),°01000000'x) .ne. 0) then 
10016 = .true. 

else 
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R Endif i 
r ( Re 
! LibSextzv(26,6,buffer(3 + j)) .ne. 0 4s 
or 
f ! Uosextavi14,2.butter 4 + j)) .ne. 0 34 
f | Cidsextzv(28,1.butter(4 + j)) .eq. 1 3 
(Voéextzv(30,2.but ter 4 + j)) wre. 0 0094 
é 1 LibSextzv(31,1,buffer(6 + j)) .eq. 1 9 98 
1) then oene 
5 all (emb$l_hd_sid,buffer(1 + j),-1,<-1,-1) 0301 
ocBe cal| menory¢ emb$\_hd_sid, buffer j 030, 
et $4 endif 9303 
Bc89 C §30¢ 
90 C Full report output the TR# and call the MA780 routine to 030¢ 
a2 : decode/output the remainder of the entry. 0307 
049 if (opti -eq. ‘S') th 

peer option .eq en OSic 
0495 call Linchk (lun,2) 0311 
0439 write(lun,10) buffer(1 + j) 9 é 
98 all _ma780 (Lun, buffer(2 + j)) 0314 
0499 eon ne un, buffer j 9 
2 RAYS. 0317 
208 endi 0318 
50 0315 
F394 20 continue 8 C 
82 5 0 } 
S807 c 6355 
508 C 11/750 4 
509 C ‘ 
else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 2) then 6 $ 
f (option .eq. ‘S' é 
i “ORe — 8 ; 
1 
‘ 
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endif 

do 30,1 = 0,15,2 

array_code = Lib$Sextzv(i,2,buffer(4)) 
if (10016) then 

if (array_code .eq. 3) then 


error_array = error_array = 512 
if (Libsextzv(17,1,buffer(2)) .eq. 0) then 


error_bank = 0 
else 


error bank = 1 
endif 


else if (array_code .eq. 2) then 
error_array = error_array = 2048 
error_bank = LibSextzv(19,2,buffer(2)) 
endif 


else if (10011) then 

if (array_code .eq. 1) then 

error_array = error_array - 256 

error_bank = 0 

else if (array_code .eq. 3) then 
error_array = error_array = 512 

if (LibSextzv(17,1,buffer(2)) .eq. 0) then 
error pent = 0 


error_bank = 1 
ndif 


if (error_array .le. 0) then 
error_array = i/2 

goto 40 

endif 


continue 
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40 if (LibSextzv(29,1,buffer(2)) .eq. 1) then 


call memory_q (emb$l_hd_sid, libSextzv(0 S-bufferst)) 
1 error_array,error_Bank,decode_ecc(lib$extzv(0,7,buffer(2)))) 


SELES 


ISIS 


If (option .NE. 'R") then 
call header (lun) 


SSSSS SSS SSS 333. 


90 

4! else if (LibSextzv(31,1,buffer(2)) .eq. 1) then 

298 call memory_q (emb$l_hd_sid,libSextzv(0,3,buffer(1)), 
594 1 error_array,error_bank,-15 

595 endl} 

peo 

598 

599 

00 


If Cemb$w_hd_entry .eq. 8) then 
-* logger (lun,*FATAL MEMORY ERROR‘) 
else 


333 


call logger (lun,"MEMORY ERROR') 
endif 
endif 


egeeee 


bert if (opti "s') th 
option .eq. en 
0612 4 ° 
061 call Linchk (lun ¢ 
0614 write(lun,50) LibSextzv(0,3,buffer(1)) 
0615 50 format(/' *, "CONTROLLER AT stor INDEX #°, 
Boi8 1 i<compress4 (LibSextzv(0,3,buffer(1)))>,°.") 
0618 call ms750 (lun, buffer(2)) 
+384 endif 
oer 
06 § : 11/730 
08 ¢ else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 3) then 
06 $ If (option .eq. ‘S' 
1 .or. 
8 ‘ 2 option .eq. ‘R') then 
Os : ¢ 11/730 syndrome bits are inverted so... 
o6%e error_bit = decode_ecc (LibSextzv(0,7,not(libSextzv(0,7,buffer(0))))) 
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error_array = LibSextzv(9,15,buffer(0)) 

if (LibSextzv(246,1,buffer(2)) .eq. 1) then 
page_count = 1024 

else 
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page count = 256 


do 60,1 = 0,15 

if (LibSextzv(i,1,buffer(2)) .eq. 1) then 
error_array = error_array - page_count 

if (error_array .le. 0) then 

error_array = i/2 


continue 

if (page_count .eq. 1024) then 

error_bank = LibSextzv (19,2, buffer(0)) 

else 

error_bank = LibSextzv (17,1, buffer(0)) 

endif 

if (error_bit .eq. -1) then 

call memory_q (emb$l_hd_sid,0, 
error_array,error_Bank,-1 

else 

call memory_q (emb$l_hd_sid,0, 

1 error_array,error_Bank,error_bit) 

endif 

endif 

If (option .ne. 'R') then 

call header (lun) 

If (Cemb$w_hd_entry .eq. 8) then 


call logger (lun,*FATAL MEMORY ERROR’) 
else 

call logger (lun,*MEMORY ERROR‘) 

endif 


call ms730 (lun, buffer) 
endif 
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—_ iESSEDrHRBE (0:07:33 YMC LT ALORTEMN VEE“S6 anenorys.ronsf20e 10) |” 
99 else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 7) then ARR 

1 do 80,1 = 1,16 
5 if (LibSextzv(15,1,buffer(i)) .eq. 1) then : 
5 call _memory_q (emb$l_hd_sid,0,i,-1,-1) : 
endif ; 
80 continue : 


S& 


[* <egtton ene. ‘C* 

1 option .ne. ‘'R') then 

call header (lun) 

call logger (lun,*FATAL MEMORY ERROR’) 
endif 


Pt 
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if (option .eq. 'S") then 

call memory_register_uv1 (lun, buffer(0)) 

endif 

The IF=THEN-ELSE should be expanded at this point to add 
additional CPU memory support. 

endif 


return FUN( 
end 
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MEMORY 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
§ SLOCAL 
EMB 
4 SYECOM 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ARRAYS 
Address Type 


CEBSe 1 
L*1 
I*4 


Total Space Allocated 


Bytes 


4 


4335 


RECC 
VALID_CLASS 
VALID-ENTRY 
VOLUME _OUTPUT 


Name 

BUFFER 

EMB 
EMBSO_HD_TIME 
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Attributes 
PIC CON REL LCL SH 
PIC CON REL LCL § 
PIC CON REL LCL NOS 
PIC OVR REL GBL S$ 
PIC OVR REL GBL § 
Address Type 
3-00000010 I[*4 
4-00000011 L*1 
- 5 4 14 L*4 
:- 0 00 [4 
- OOOE I*2 
3 ; 10 Ll 
-000 of 1%4 
4-00000004 L*4 
550000001 | Let 
4- 000097 1*4 
4-Q000001F I*4 
4- 44 CHAR 
ko 4 Le4 
Sr ae 
4- vinta L*1 
Dimensions 
(0:120) 


( 


! 


2511) 
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VAX-11 FORTRAN ¥2s8"36 Page 
DISKSVMSMASTER: LERF .SRCJMEMORYS.FOR;1 
exe RD NOWRT LONG 

NOEX RD NOWRT LONG 

NOEXE RD WRT LONG 

NOEXE RD WRT LONG 

NOE XE RD WRT LONG 

Name 


eongye. com 


CRYPTK_FLAG 
EMBSL_AD_SID 
EMBSW~HD ~ERRSEQ 
EOF FLAG 
ERROR_BANK 
FORMS 


L0016 
TLUN 

MAILBOX_ CHANNEL 
PTIONS 


o23zr re 
~ 


PRINTER 
RECORD SIZE 
VALID_CPU 
VALID_TYPE 
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-Sep-1984 1:18 DISKSVMSMASTER: CERF. SRCIMEMORYS. FOR;1 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
1 19" ee eo ee 30 0-0000075C 40 1-00000080 50° ae 60 
FC 6 ee 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 DECODE_ECC HEADER *. 
1*4 L18s XTZV LINCHK LOGGER + 
MA MEMORY_Q Seana NeSISTER Ut fi 
4S750 MS780C +; 
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Subroutine MA780 (Lun,memory_registers) 


* 
+ 


This routine displays the ma780 memory registers. 
The format of the multi-port memory sub packet is as follows. 


Ferme oe mamr noses e sear en nema mame nam roe } 


+ port configuration register | 


temo rere wenn een meme wer emer enw ne enny 


| port interface control register | 


gene we memo e ere eso eee ese eee en om ees} 


i port controller status register | 


Ger ew eer ewe meme ern mm nweme nee n ee 


{ port invalidation control reg; 


bee ee ee eee meme een eet ee eee owen meee $ 


' array error register ' 
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: configuration status register 0 : 


Pewee nec ere meee meses noe oesc emcee een} 


: configuration status register 1 } 


tee ce wen emo neo emer en seme oma momma} 


+ maintenance control register i: 


Fewer swore e reese eos em ammo n mew oman $ 
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OU 
00 Implicit none 
4 byte lun 
integere4 memory_registers 
inteseres buttertB) > 
integers4 port_configuration_register 
integer*4 port_interface_control_register 


integer*4 portcontros ter status register 
integert4 port_ aval Veat ion control reg 
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integer*4 arrayerror_regis er 5 

integers4 conf iguration_status_register0 P] 

integere4 cont iguretion status register! 5 

3 integers4 maintenance_control_register 3 

1 equivalence (buf fer(1) ,port_ eae tgeretien register) 5 

§ equivalence (bufver(2) ,port_interface_control_register) 5 

equivalence (buf fer(3) ,port_controller_status_register) 5 

& equivalence (buf fer(4) ,port_invalidation_control_reg) P] 

5 equivalence (buf fer(5) ,array_error_register r) 

§ equivalence (butter (6) .cont Guration_status_register0) 6( 

equivalence (buf fer(7) ,configuration_status_register1) 61 

3 equivalence (buf fer (8) , maintenance_control_fregister) 64 

50 integere4 ram_count 64 
1 integere4 array count 65 

¢ integere4 starting_address 6¢ 

integere4 error_syndrome 6/ 

26 integere4 error_bit 68 
5 integere4 error_array $; 

26 ntegere4 error_bank ( 
5 ntegere4 array_init status_bits 7| 
58 integere4 port_type_Sits % 
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173 
vivalence (ram_count,array_count,starting_address,error_syndrome, 174 
T"error.b error orfayarray, tote, status pits Bort, type oles? , 173 
integere4 compress4 177 
integersé compressc 178 
Integert4 17 
ntegere4 ‘ 180 
ntegers4 ibSextzv 18) 
integers? LibSlocc 1 ¢ 
ntegers4 decode_ecc 18 
integer*4 adapter_tr 0183 
lLogical*1 diagnostic_mode 
character*32 viregister2(0:1) 
data viregister2(Q) /'MASTER INTERRUPT ENABLE®'/ 
data viregister2(1) /*PORT INTERFACE INTERRUPT ENABLE*'/ 
character*30 v3register2( 4351) 
0079 data vsregister2(25) /"MARK INTERLOCK IN PROGRESS*'/ 
data vsregister2(24) /*MARK TIMEQUT®'/ 
1 data voregister2(25) /'MARK REQUESTER®' 
¢ data vsregistere( $ /*OUTPUT BUFFER OVERFLOW*'/ 
008 data vsregister2(27) /‘INVALIDATION ACK NOT RECEIVED*'/ 
0084 data voregistere( i} /‘OUTPUT BUFFER PARITY ERROR®'/ 
0085 data voregister2(29) /*INVALIDATE LOST ON BDI*'/ 
49] data vsregister2(350) /‘'BDI PARITY FAULT ON OUTPUT*#'/ 
008 data v3register2(31) /'BD] PARITY FAULT ON INPUT®'/ 
0089 character*23 viregister3(1) 
Oooy data viregisterS(1) /*ERROR INTERRUPT ENABLE*'/ 
4 character*25 v2register3(6:8) 
009 data véeregister 8 /*SELF INVALIDATE ENABLE*'/ 
0094 data veregister3(7) /*INVALIDATION DISABLE®'/ 
0095 data véregister5(8) /*INHIBIT ADMI ARBITRATION®'/ 
5099 character*25 v3register3(10:15) 
0098 data vsregister3(10) /"INTERLOCK GRANT ACCEPTED*'/ 
0099 data voregister3(11) /°INTERLOCK FLIP-FLOP®'/ 
B190 data vsregister3(12) /"ARRAY INIT IN PROGRESS*'/ 
c 
19¢ : Cell 13 of this array unused 
104 data veregisters( is} /*INVALIDATE DATA LOST#'/ 
4 data vsregister3(15) /"INTERLOCK TIMEQUT®'/ 
199 character*30 v4register sN 
H's data v4register3(21) /"NO C/A ON ADM] WHEN REQUESTED*'/ 
110 character*23 voregister3(22:25,0:1) 
111 data voregister3(22,0)/ se-8t OPERATION®'/ 
11g data voregisters(22,1)/°64-BIT OPERATION®'/ 
11 data voregisters(25,0)/'1/0 SELECT#'/ 
114 data vSregister3(25,1)/°ARRAY SELECT#'/ 
115 data vSregister5(24,0)/"REQUESTER HAS NO CACHE®'/ 


5 
g 


BF 
Me Eeen Re BT Ts  ecddMGRRSTEN PERE Stcamenorvs.rorsiem 1° 


i data vSregister3(24,1)/'REQUESTER HAS CACHE®'/ 

1 data voregister3( 37937 ADA READ*'/ 

; data voregister5(25,1)/'ADMI WRITE®'/ 
character*32 véregister3(28:31) 
data v6oregisters(28) /"MULTIPLE ADMI GRANT*'/ 

¢ data v6éregister3(29) /'PORT TRANSMITTING DURING FAULT®'/ 
data véregister3( » /*ADMI MULTIPLE TRANSMITTER FAULT®'/ 

¢ Gata v6éregisterS($1) /*ADMI COMMAND ABORT*'/ 

$ character*14 viresisters {31:51} 

i data viregister4(31) /"CACHED FORCED*'/ 
character*18 viregister5 (28:31) 
data viregister5(28) /"ERROR LOG REQUEST®*'/ 

1 data viregister5(29) /*HIGH ERROR RATE*'/ 

¢ data viregister5(350) /°CRD TAGt'/ 
data viregister5(31) /"MAP PARITY ERROR*'/ 

5 character*27 virogjevers (0:1) 
data viregister6(0) /*NONCONTIGUOUS ARRAY ERROR*'/ 
data viregister6(1) /°4K CHIP ARRAY ERROR*'/ 
character*28 virogiscer Teast? 

ata viregister7(10) /*MULTIPLE INTERLOCK ACCEPTED*'/ 

data viregister7(11) /"INVALIDATION MAP PRESENT*'/ 
shorecsersi, array_init_status 
character*22  port_ftype 


call movc3 (%val(32),memory_registers,buffer) 
diagnostic_mode = .false. 

if (LibSextzv(4,3,port_interface_control_register) .ne. 0 
(ToSextav(4.2.port_controller_stetus_register) ene. 0 
iTbSextev(13,1,port_controller_status_register) ene. 0 
(ToSextav(8,2.contiguration_stetus_registert) ne. 0 
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or. 
LibSextzv(8,6,maintenance_control_register) .ne. 0) then 
diagnostic_mode = .true. 
call Linchk (lun,1) 
write(lun,5) gore configuration_register 
5 format(/" ',t8,'PRICFNG’,t24,z8.8) 
endif 
call ma780_rega (lun,port_configuration_register) 


call Linchk (lun,1) 
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write(lun,10) port_interface_control_registe 
10 fornatt’ £8, PRECR’ toe Brey ee easter 


if (.not. diagnostic_mode) then 

call output (lun,port_interface_control_register,viregister2,.0,0,1,'0") 
call Linchk (lun,1) 

ram.count = LibSextzv(16,4,port_interface_control_register) 


write(lun,15) ram_count 
15 format(’ ',t40,°RAM COUNT °,i<compress4 (ram_count)>,'.') 


$o{) gutput (Lun,port_interface_control_register,v3register2,23,23,31, 
endif 
if (LibSextzv(4,3,port_interface_control_register) .ne. 0) then 
call Linchk (lun,1) 
write(lun,17) 
17 format(" °,t40,"DIAGNOSTIC MODE") 
endif 
call Linchk (lun,1) 


write(lun,20) port controller status_register 
20 format(' ',t8,"PCSR',t24,28.8) 


if (LibSextzv(13,1,port_controller_status_register) .ne. 0 
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or. 
1 LibSextzv (4,2,port_controller_status_register) .ne. 0) then 
call Linchk (lun,1) 
write(lun,17) 
endif 


if (.not. diagnostic_mode) then 
call output (lun,port_controller_status_register,viregister3,1,1,1,'0") 
call output (lun,port_controller_status_register,v2register3,6,6,8,'0') 


cath qutput (Lun,port_controller_status_register,v3register3,10,10,12, 


sot) .gutput (lLun,port_controller_status_register,v5register3,10,14,15, 


if (jiand(port_controller_status_register,'d0000000'x) .ne. 0) then 
5°t) output (Lun, port_controller_status_register,v4register3,21,21,21, 
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call Linchk (lun,1) 


yr teottyn 00) startin address 


format(* °, "MEMORY BASE ADDRESS = °, 


F#} 4, qutput (Lun,port_controller_status_register,vSregister3,22,22,25, $ 
i 
1 = LIBSEXTZV (26,2,port_controller_status_register) 5 
5 Call LINCHK (Lun,1) 000 
Grite (tun, 25) 1 0008 
25 Format ( -140,°"ADMI"’ PORT #°, I<COMPRESS4 (1)>,'.") ist 
39 galt output (Lun,port_controller_status_register,véregister3,28,28,31, bora 
8 a endif 0013 
tg endif set 
te call Linchk (lun,1) O08 
4 write(lun,30) port invalidation control_re 0018 
8 af 30 format(' 7B, IVDTCR’ t24,28. 87 — BO)? 
° r4 if (.not. diagnostic_mode) then a8 1 
p i do 50,i = 0,15 a8 5 
338 if (LibSextzv(i,1,port_invalidation_control_reg) .eq. 1) then a8 2 
0 2? call Linchk (lun,1) 88 i 
0 5 write(lun.40) i 0029 
0258 40 format(' *,t40,"INVALIDATE CACHE DEVICE ID = ',i<compress4 (i)>,'.") 0030 
8 4 endif a8 1 
0261 50 continue 0033 
0 o¢ 0034 
0 rt call Linchk (lun,1) it 
0 65 array_count = LibSextzv(16,3,port_invalidation_control_reg) sit t4 
0367 if (array_count .eq. 0 
an o 
0269 1 LibSextzv(0,2,configuration_status_register0) .ne. 0) then 
71 write(tun.60) "INVALID ARRAY CONFIGURATION’ 
i 60 format(’ °,t40,a) 
a else 
75 write(lun,70) array_count + 1 
7 70 format(' pee ise ress4 (array_count + 1)>, 
7 1°, ARRAY D(S) PRESENT’) 
8 endif 
tf starting_address = LibSextzv(20,11,port_invalidation_control_reg) *256 
| 5 80 


1 i<compress4 (starting_address)>,’.K") 
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endif 
call Linchk (lun,1) 


write(lun,90) array_error_register 
format(’ ',t8, AER 7t26,28.8) 


if (.not. diagnostic_mode) then 

if (LibSextzv (28,1,array_error_register) .eq. 1) then 
error syndrome = LibSextzv(0,8,array_error_register) 
call Linchk (lun,1) 


write(lun,100) error._syndrome 
ormat(' ',t40,"ERROR SYNDROME = ',22.2) 


error_bit = decode_ecc (error_syndrome,port_configuration_register) 
call Linchk (lun,1) 
if (error_bit .eq. -1) then 


write(lun,110) "RDS ERROR’ 
format(' *,t40,a) 


else 

write<lun,120) "CRD ERROR, CORRECTED BIT #',error_bit,'.' 
sergett -t40,a,i<compress4 (error_bit)>,a) 

en 


error_array = LibSextzv (24,4,array_error_register) 

call Linchk (lun,1) 

write(lun,140) error orrey 

a ll .t40,"ARRAY #',i<compress4 (error_array)>,'. IN ERROR) 
en 

Error_bank = LIBSEXT2ZV(23,1,array_error_register) 


Cail LINCHK (Lun,1) 
Write (lun,145) error_bank 


Format(* ° 

1 "ARRAY BANK #*,1<COMPRESS4 (error_bank)>,*. IN ERROR") 

col} output (Lun ,array_error_register,viregister5,28,28,31,'0") 
e 


call Linchk (lun,1) 


write(lun,170) configuration _status_register0 
format(’ St ESRO ot 24.288) =F08 


ig-$0—1984 00:07:35 


me > ae (Lun,port_invalidation_control_reg,viregister4,31,31,31, 


6 P 
RCIJMEMORYS .FOR; 1 


Oo oO oO =z 
Pessesccocceccessesepeeere S 


seessseees 


Gcooo 


ee ee a ce ds et ws ht 


SRLESRALLS 


Ot ed dt 
UEWN—O 


OOOCSCSCo 
WN OOONOUESWN"OWOONOUS 


SSeeeees 


DOSCCCODCOCCOO OOOO OC OOO OCO 
de hehebe hehehehehe] 
SONOUEUN—OD iw 


WAWAAAW 


COOOCOCooVToo0c0o 


Passesenborenee 


S33 


Portrirtes 
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180 


190 


200 


210 


220 


230 


if (.not. diagnostic_mode) then 

call output (lun,configuration_status_register0,viregister6,0,0,1,'0') 
array_init_status_bits = LibSextzv(2,2,configuration_status_register0) 
if (array_init_status_bits .eq. 0) then 

array_init_status = "INITIALIZATION IN PROGRESS*' 

else if (array_init_status_bits .eq. 2) then 

array_init status = "MEMORY CONTAINS VALID DATA®‘ 

else if (array_init_status_bits .eq. 3) then 


orcs init status = "INITIALIZATION COMPLETE®*' 
en 


call Linchk (lun,1) 


write(lun,180) array_init_status(:(lLib$locc('®' ,array_init_status)=1)) 
format(" *,t40,a) 


do 200,i = 4,7 

if (LibSextzv(i,1,configuration_status_register0) .eq. 1) then 
call Linchk (lun,1) 

write(Lun,190) ‘PORT #',i = 4,'. POWERED DOWN’ 

format(' *,t40,a,i<compress4 (i - 4)>,a) 

endif 

cont inue 

do 220,i = 8,11 

if (LibSextzv(i,1,configuration_status_register0) .eq. 1) then 
call Linchk (lun,1) 

write(lun,210) ‘ERROR INTERRUPT FROM PORT #',i - 8,'.' 

format(" *,t40,a,i<compress4 (i - 8)>,a) 

endif 

cont inue 

do 240,i = 12,15 

if (LibSextzv(i,1,configuration_status_register0) .eq. 1) then 
call Linchk (lun,1) 


write(lun,230) "PORT #',i = 12,'. DESL INE® 
format(* °,t40,a,i<compress4 (i = 12)>,a) 
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:01:1 DISKSVMSMASTER: 
endif 


continue 
endif 


calt Linchk (lun,1) 


ye ttetiyn,20) configuration _status_register1 
format(' *,t8,'CSR1',t24,28.8) 


if (.not. diagnostic_mode) then 

do 270,i = 0,6,2 

port_type_bits = LibSextzv(i,2,configuration_scatus_register1) 
if (port_type_bits .eq. 0) then 

port_type = *. NOT PRESENT*’ 

else if (port_type_bits .eq. 2) then 

port_type = '. CONNECTED TO AN SBI*' 

endif 


1% Coort.typeptts ene. 1 

1 port_type_bits .ne. 3) then 
call Linchk (Llun,1) 

write tun, 260) i/2, ort_type 

rorsass -t40,"PORT #°,i<compress4 (i/2)>,a<compressc (port_type)>) 
continue 


gett output (Lun,configuration_status_registerl,viregister7,10,10,11, 


do 290,i = 12,15 

if (LibSextzy(i,1.configuration_status_register1) .eq. 1) then 
call Linchk (lun,1) 

write(lun,280) "PORT #*,i = 12,°. INVALIDATION ACK RECEIVED" 
format(* °,t40,a,i<compress4 (i = 12)>,a) 

endif 

continue 

endif 

if (LibSextzv(8,2,configuration_status_register1) .ne. 0) then 
call Linchk (lun,1) 
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write(lun,17) 
endif 
call Linchk (lun,1) 


write(lun,295) | perotenenc =fontrol. register 
format(' *,t8,'MAT',t24, 


if RNG FY Dio ene. 0) then 
call Linchk (lun,1) 

write(lun,17) 

endif 


return 
en 
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PROGRAM SECTIONS 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PiC CON REL LCL NOSHR NOEXE RD WRT LONG 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Address Type Name 


000 I*4 ARRAY COU 
608 Isa" CON ARRAY~ INIT. 


ices es wee 


ADAPTER_TR 
ARRAY _ERROR_RE cotetee 
a INIT STATUS 


Gg 
& 
m 


ITS 
RROM ARRAY ATION_ STATUS -REGISTER1 


S 


STA My ROL REG. 
ON_C 


R 
R 
I 


ATUS 
FIGU RATTON STATUS_REGISTERO 

it BING NOSTIC_MOBE 
I*4 ERROR_BANK™ 
ise ERROR_ SYNDROME 
I*4 MAINTENANCE CONTROL_R 
[4 peer _CONF IGORATION RE 

& TZIN ew Me, CONTROL 


It 
— PORT: TY 
I*4 RAM "COUNT 


MA780 
ARRAYS 
Address Type Name Bytes 
eyerer 32 
Vv REGISTERS ; 
VIREGISTER 
VIREGISTERS 4 
VIREGISTERS 6, 
YR er arene 
VIREGISTER 
V2REGISTER 
WAREGISTER ; 
VSREGISTEK ; 
V4REGISTER 6 
VSREGISTER 184 
V6REGISTER 128 
LABELS 
Address Label Address Label 
1-000000F4 5° 1=00000109 10° 
e's sis +9 30° 1-0000018F 40' 
1-00000212 90° 1-00000222 100' 
1-0000029A 170° 1-000002AB 180° 
1-000002CE 230' ee 40 
ee 290 1-00000315 295° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 


I*4 COMPRESS4 I*4 COMPRESSC 
MA780_REGA MOvC3 


Dimensions 


PPB LLLP LLP LL LO 


Address Label 
1-00000118 15° 
1~p0090988 

8 


1-00000 
1-0000020C 


Type Name 
I*4 DECODE_ECC 
OUTPUT 


& 


Address 
1-00000136 
1-0000018D 
1-00000245 


tt 
1-000002ED 


Type Name 


ep-19be 14:01:48 


Label 


I*4 LIBSEXTZV 


VAX=11 FORTRAN 
DISKSVMSMASTER 


Address’ Label 


Type Name 
I*4 LIBSLOCC 


teat 73 
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Address Label 
1-Q0000015E 25° 
Le s'4's AL, 80' 
1-00000 4 
1-00000307 280° 


Type Name 
LINCHK 
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Subroutine MS780C (Lun,memory_registers) 


This routine displays the error 9p, pocket for the ms780c 


memory controller. The format of 


e packet is as follows. 


Pere ern E ower Ena SEBO SORE Eas Eoaaamaas . 


memory register A H 


oes 


memory register B H 


ge wmorowmewone sew amonc econ wens mac oceeemm a $ 


memory register C H 
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Implicit 
byte 


integer*4 
integers4 
integers4 
integer*4 
integere4 
integere4 


equivalence 
equivalence 
equivalence 


character*27 
data 


data 
data 
data 


character*27 
data 


character*18 
data 


date 
data 


integere4 
potogersy 

ntegere4 
integer*4 
integers4 
integers4 
integere4 
integers4 
integert4 
integer*4 
integert4 


none 
lun 


memory_registers 
adapter_tr 

buf fer (3) 
memory_register_a 
memory _register_b 
memory_register_c 


(buf fer(1) ,memory_register_a) 
Sbut ter ig; memory register _b) 


(buf fer(S) ,memory_register_c) 

memory_init_status(0:3) 

memory_init_status( "INITIALIZATION IN PROGRESS*'/ 
memory_init_status( "MEMORY CONTAINS VALID DATA*'/ 
memory_init_status( ‘INVALID STATE®'/ 
memory_init_status( "INITIALIZATION COMPLETE®'/ 


"ERROR LOG REQUEST*'/ 
"HIGH ERROR RATE®'/ 
"INHIBIT CRD TAG*'/ 


vimemory_registerc 
vimemory_registerc 
vimemory_registerc 


p *etonter 


decode_ecc 
compress4 
gompressc 

nit gtetus 
starting_address 
error syndrome 
error_bit 
error_bank_address 
error_array 


> £ 

Be 

Prie 

Bee 

ygnenory _rogietorh(i9:16) 
vememory_registerb(14) /*START ADDRESS WRITE ENABLE*'/ 

vimemory_registerc ( ) 

y.reg (38 ; 

(29) / 

(30) / 
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16-Sep-1984 :07: VAX=11 FORTRAN V3.4-56 P 
Ban aee Meee TS  MIEKEIMGRRSTCNS PERE eecamemorys.rorsie™ 7° 
logical*1 iagnostic_mode 
Logical fourrk “0 
Logical*1 sixteen_k 


call movc3 (%val(12) ,memory_registers,buf fer) 

diagnostic_mode = .false. 

if (LibSextzv (8,2,memory_register_b) .ne. 0) diagnostic_mode = .true. 
if (.not. diagnostic_mode) then 

call ms780c_rega (lun,memory_register_a) 

else 


call Linchk (lun,1) 
write(lun,5) memory_register_a 
f Kr 8.8) 


§ format(* *,t8,'CSRA*,t24,2 
1 endif 
Hi Four_k = .false,. 
Sixteen_k = .false. 
5 If (LIBSEXTZV( og memory register _a) -EQ. 1) four_k = .true. 
If (LIBSEXTZV(3,2,memory_register_a) .EQ. 2) sixteen_k = .true. 
call Linchk (lun,1) 
89 


write(lun,10) *CSRB* ,.memory_register_b 
10 format(* *,t8,a,t24,28.8) 


if (diagnostic_mode) then 
call Linchk (tun,1) 
write(lun,12) "DIAGNOSTIC MODE‘ 
12 format(" *,t40,a) 
endif 
if (.not. diagnostic_mode) then 
init status = LibSextzv(12,2,memory_register_b) 
call Linchk (lun,1) 


write(lun,30) memory_init_status(init status) 
30 format(' *,t40,a<compressc (memory_init_status(init_status))>) 


call output (lun,memory_register_b,v2memory_registerbd,14,14,14,'0") 


starting_address = LibSextzv(15,13,memory_register_b) #64 
call Linchk (lun,1) 
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ifose Been ae PORT Ts Wee SORS TEN. Feat Sécomemorys.rors1em 
lh ella dA Starting address 
ormat MEMORY BASE ADDRES 
i<conproset gM: Uy address)>,’. 
call Linchk (lun,2) 
write(l 40) ( ioSens fo (i,2,memory_register_b),i = 28,30,2) 
‘igi cs t40 hy NPUT POIN TERY. er : . 
1 iscompresse (ib # taut ¢smemory. register_ 6539." 6" ols 
T POINTER 
i aelentanek tt bSextzv(i,2.memory_register_b))>,'.") 
endif 
call Linchk (lun,1) 


write(lun,45) "CSRC*,memory_register_c 
format(' ',t8,a,t24,28.8) _— 


if (.not. diagnostic_mode) then 

if (LibSextzv(28,1,memory_register_c) .eq. 1) then 
error_syndrome = LibSextzv(0,8,memory_register_c) 
call Linchk (lun,1) 


write(lun,15) error_syndrom 
format(’ ',t40, ERROR SYNDROME e *.22.2) 


error_bit = decode_ecc (error_syndrome,memory_register_a) 
call Linchk (lun,1) 

if (error_bit .eq. -1) then 

write(lun 520) "RDS ERROR’ 

format(' ',t40,a) 

else 


write(lun 329) "CRD ERROR, CORRECTED BIT #',error_bit,’.' 
poregts” vt40,a, i<compress4 (error _bit)>,a) 
e 


FUN —OOONOULS WN —OO0 


PUPPIES BE EEE EE 


DONOW 


If (four_k) then 
Error_bank “eddress = LIBSEXTZV(21,1,memory_register_c) 


Else if (sixteen_k) t 
Error_bank_address = PTBSEXTZV(23, 1,memory_register_c) 


Endif 

call Linchk (lun,1) 

write(lun,47) error_bank address 
ee ths ARRAY BARK 


format ( 
1 ee A nme _bank_address)>,'. IN ERROR") 
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MS780C ibege 1984 00:07: 
Sepa19be 14:01:18 
, é error_array = LibSextzv(24,4,memory_register_c) 
; call Linchk (lun,1) 
1 $ yeieet hyn.) error array 
A 50 Forset( -t40,"ARRAY #',i<compress4 (error_array)>,'. IN ERROR") 
1 
1 call output (lun,memory_register_c,vimemory_registerc,28,28,30,'0') 
1 ¢ endif 
1 
1 return 
185 end 


PROGRAM SECTIONS 
Name 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-000° 0070 


VARIABLES 
Address Type 


ARRAYS 
Address Type Name 
ite REROR 
RY INIT STATUS 
EHAR Vi RORY REGISTERC 
CHAR V2MEMORY_ REGISTERB 


Attributes 

ie CON net LCL oe EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Name 
DIAGNOSTIC_MODE 


Address Type 


Ln =SYNDROME 


ERROR_BANK” ADDRESS 


RF. 


-56 
SR 
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-$ep-1984 : DISKSVMSMASTER: CERF .SRCJMEMORYS.FOR;1 


LABELS 
Address Label Address Label Address Label Address Label Address Labei Address Label 
1-00000079 5° 1=0000008A 10° 1-00000096 -000001 15° 1-0000013F 20° 1-00000146 25° 
1-0000009D 30" 1=000000A9 35° 1=80098 D1 1=$00961 3 45° 1739080156 29. 1=b090017 $3. 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Neme . Type Name Type Name Type Name Type Name Type Name 


1*4 COMPRESS4 I*4 COMPRESSC I*4 DECODE_ECC I*4 LIBSEXTZV LINCHK MOVC3 
MS780C_REGA OUTPUT 
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Subroutine MS780E (Lun,memory_registers) 


This routine displays the error tog packet for the ms780e 
memory controller. The format of the packet is as follows. 


Faeroe sane er mean anon ecewmas enema menone=$ 
: memory register A H 


pean ewe no moe sr nec e ese comms een meen eons > 


: memory register B H 


tome m memes meee wee een merece ewer c eee een} 


: memory register C ' 


a ore 


H memory register D i 


Fem e enw we we we ee ee mee eee mew eee ee meee nny 


Implicit none 

byte lun 

integer*4 memory_registers 

integer*4 buf ferT4) 

integers4 memory_register_a 

integers4 memory_register_b 

integer*4 memory_registert'c'x:'d'x) 
equivalence (buf fer(1) ,memory_register_a) 
equivalence spur rer) g; memory register b) 
equivalence (buf fer (3) ,memory_register) 
logical! diagnostic_mode 

integert4 decode_ecc 

integert4 compress4 

integers4 compressc 

Integert4 LibsSextzv 

Integer*4 I 


character*27 wonory_ /9]t.stetust):3) 
data (0) 


memory_init_status /"INITIALIZATION IN PROGRESS*'/ 
data memory _init_status(1) /*MEMORY CONTAINS VALID DATA®'/ 
data memory_init_status(2) /‘INVALID STATE®'/ 
data memory_init_status(5) /*INITIALIZATION COMPLETE*'/ 


character*33 vimemory_registerb(7:7) 
ata vimemory rovreteres 
/*SBI INTERFACE WRITE PARITY ERROR®'/ 


charactert27 ugnenory rogievorbs19 516) 
data vémemory_registerb(14) /"START ADDRESS WRITE ENABLE*'/ 


character*29 vimemory_register(7:7) 
ate yinenory register(7) 
/*MICRO-SEQUENCER PARITY ERROR*'/ 


character*18 v2memory_register (28:30) 
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CIMEMORYS.FOR; 1 
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od ed ad dd 
MEW 


data vememory_register ( §} 
data vememory_register(¢29) 
data vememory_register (50) 
integers4 init yretes 

integers4 starting_address 
integers4 error syndrome 
integers4 error_bit 

integers4 error _bank_address 
integers4 error_array 

integers4 adapter_tr 


CIMEMORYS.FOR; 1 


OG REQUEST*'/ 
BIT CRD TAG'/ 


call movc3 (%val(16) ,memory_registers, buffer) 


diagnostic_mode = .false. 


f ¢ 
1 LibSextzv(7,3,memory_register_b) .ne. 0 
or. 
LibSextzv(11,1,memory_register_b) .eq. 1 


(ibSextzv(31,1,memory_register('c'x)) -eq. 1 


i 
1 
1 
1 .or 
1 
1 
1 
1)¢t 


diagnostic_mode = .true. 
end 


if (.not. diagnostic_mode) then 


call ms780e_rega (lun,memory_register_a) 
else 


call linchk (lun,1) 
write(lun,5) menery register_a 
format(’ ',t8,'CSRA*,t24,28.8) 
endif 

call Linchk (lun,1) 


write(lun,10) *CSRB* .memory_register_b 
format(’ °,t8,a,t24,28.8) 


if (diagnostic_mode) then 

call Linchk (lun,1) 
write(lun,12) "DIAGNOSTIC MODE’ 
format(® °,t40,a) 

endif 


if (.not. diagnostic_mode) then 


.or. 
: 1OSentev(S1.1 menory_rogister(’d'x)) eq. 1 
en 


init status = LibSextzv(12,2,memory_register_b) 
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ifo$eoct 9B 00:07:55 


call Linchk (lun,1) 
write(Lun,15) memory_init_status(injt status) 


format(' *,t40,a<compressc (memory_init_status(init_status))>) 

call output (lun,memory_register_b,vimemory_registerb,7,7,7,'0") 
call output (lun,memory_register_b,v2memory_registerb,14,14,14,'0') 
starting_address = LibSextzv(19,9,memory_register_b) 

call Linchk (lun,1) 

write(tun,20) Sterting. address 


format(’ *,t40,"MEMORY BASE ADDRESS = ', 
1 isconpreses (starting_address)>,'.M') 
en 


do 55,1 = ‘c'x,'d'x 
call Linchk (lun,1) 
if (i .eq. ‘c'x) then 


write(lun,25) =" pears register(i) 
format(' °,t8,"CSR',a,t2s,28.8) 


else if (i .eq.'d'x) then 
write(lun,25) 'D’,memory_register(i) 
endif 


if (.not. diagnostic_mode) then 

if (LibSextzv(28,1,memory_register(i)) .eq. 1) then 
error_syndrome = LibSextzv(0,7,memory_register(i)) 
call Linchk (lun,1) 


write(lun,30) error_syndrome 
format(' *,t40,"ERROR SYNDROME = ',22.2) 


error_bit = decode_ecc (error_syndrome,memory_register_a) 
call Linchk (lun,1) 

if (error_bit .eq. -1) then 

write(lun,35) "RDS ERROR’ 


format(' *,t40,a 
else 


write(lun,40) "CRD ERROR, CORRECTED BIT #*,error_bit,'.' 
soregte” 
en 


-t40,a,i<compress4 (error_bit)>,a) 
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Dp 


call output (lun,memory_register(i),vimemory_register,7,7,7,'0") 
error_bank_address = LibSextzv(22,2,memory_register(i)) 
call Linchk (lun,1) 


tates 


ph 


write(lun,45) error_bank address 


i 
48 
i 
1% 
18145 format(’ §,t40,"ARRAY BANK #', i 
i ¢ 1 i<compress4 (error_bank_address)>,". IN ERROR") : 
1 4 error_array = LibSextzv(24,3,memory_register(i)) : 
1 If (i .EQ. 'd'x) then { 
a t4 Error_array = error_array + 8 i 
189 Endif 5 
190 é 
191 call Linchk (lun,1) , 
198 write(lun,50) error array 5 
194 50 format(' ',t40,"ARRAY #',i<compress4 (error_array)>,'. IN ERROR") C 
12? endif 
1 
1 
1 
2 


SOOO COCOCOOCOOOOOO OOOO OOOO OOOO 


96 
97 call output (lun,memory_register(i),v2memory_register,28,28,30,'0') 
98 endif 
99 
00 55 continue 
0201 
020 return 
end 
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MS780E 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ue 
124 [84 


10C_ I*4 


@ 1 
g [#4 
-00000114 [4 
ARRAYS 
Address Type 
LABELS 
Address Label 
1-00000077 $0 
1-000000E0 30°‘ 


Name 
MS780E 


Name 
ADAPTER 


TR 
ERROR_ARRAY 
ERROR_BIT 


LUN 
MEMORY REGISTER_A 
STARTING_ADDRESS 


Name 
BUFFER 


Address 


Label 


i=o00000Fe 35° 


Bytes 
"Me 
4 

88 


2330 


1200000103 46° 
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Bae eee ar Ts Waa SARS RAN Feat -26 amemonvs.rorsiem” > 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Address Type Name 
~8008 198 L*1 DIAGNOSTIC_MODE 
-000001 I*4 ERROR_BANK_ ADDRESS 
-00000118 I*4 ERROR-SYNDROME 
-00000110 I*4 INIT_STATUS 
AP-00000008@ I*4 MEMORY_REGISTERS 
2-00000004 I*4 MEMORY_REGISTER_B 
Bytes Dimensions 
16 (4) 
108 (0:3) 
(12:13) 
(7:7) 
(7:7) 
4 (28:30) 
7 (14:14) 
Address Label Address’ Label Address Label Address Label 


AREER UE tenngs 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
1*4 SOeO RE REGA 14 A I*4 DECODE_ECC I*4 LIBSEXTZV LINCHK MOVC3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Subroutine MS750 (Lun,memory_registers) 


aa 
na 


Functional description: 


This module displays ms750 memory error packets. The format is as 
follows. 


sewer e meat areomaecce mom ne amaa wana ean + 
: memory register 0 H 
H memory register 1 H 


} memory register 2 : 
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Implicit none 

byte lun 

integer*4 memory_registers 
inteseres slot. th : 


ex 
integere4 bul farcss 
integers4 memory_register_0 
integers4 memory _register_1 


integere4 memory_register_2 


1 equivalence (buffer(1) , memory_register_0) 
§ equivalence gbur rer sg; memory register.) 
equivalence (buf fer(3) .memory_register_2) 
5 character*35 vimemory_register 
data 


(29:31) 
vinenory-registerd(@3) /*CORRECTED ERROR FLAG*'/ 
data piecnery roa lster (30) 
1 /*UNCORRECTED ERROR INFORMATION LOSster/ 
data vimemory_register0(31) /*UNCORRECTED ERROR FLAG*'/ 
character*34 vinesory register} (28:28) 


ata yinenery register! 
/"ENABLE REPORTING CORRECTED ERRORS*'/ 


character*23 vimemory_register2(16:16) 
data vimemory_register2(16) /*BATTERY BACKUP FAILURE*'/ 


integert4 compress4 
integer*4 LibSextzv 

DC entogerss 

OL ntegere4 decode _ecc 

D0 integere4 error_bit 

005 integere4 error_array 

B23 integerss error_bank 

D0 ntegere4 arrays_present 
integere4 start_address 
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equivalence (error_bit,error_array,arrays_present, 


Ne 
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15 
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1 start_address) 


integers4 array_code 
logical! jiagnostic_mode 
topical] C38P) 
logical*1 10016 


call movc3S (Zval(12) ,memory_registers, buffer) 

diagnostic_mode = .false. 

if (LibSextzv(25,3,memory_register_1) .ne. 0) diagnostic_mode = .true. 
call Linchk (lun,2) 


write(lun,10) memory _register_0 
format(/' rtB. CSROY.t 428.8) 


if (.not. diagnostic_mode) then 
call Linchk (lun,1) 


write(lun,15) LibSextzv(0,7,memory_register_0) 
format(’ ',t40, ERROR SYNDROME = *7z2°2) . 


if (LibSextzv(29,1,memory_register_0) .eq. 1) then 
error_bit = decode_ecc (LibSextzv(0,7,memory_register_0)) 
call Linchk (lun,1) 

if (error_bit .eq. <1) then 


wrieettun.20) *“ECC’’ CODE, UNCORRECTED ERROR' 


write(lun,20) "CORRECTED ERROR 
format ot4 


BIT #'. error_bit,'.' 
yy 28,: i<compress4 (error_bi 


t)>,:a) 
endif 

endif 

if (LibSextzv(30,1,memory_register_0) .eq. 0) then 
error_array = LibSextzv(9,15,memory_register_0) 
10011 = . false. 

10016 = . false. 

if (LibSextzv(24,1,memory_register_2) .eq. 1) then 


10016 = .true. 
else 


10011 = .true. 
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5 
pont ifo$e0-1 984 MBtit8 — DISKSUMGRASTER: EERE SecameMoRYs.FoR;1°% °° 
endif 
do 25,1 = 0,15,2 
array_code = LibSextzv(i,2,memory_register_2) 
if (10016) then 
if (array code .eq. 3) then 


a 


Mur DONA UNE WH ODO~IO 


error_array = error_array = 512 

If (LIBSEXTZV(17,1,memory_register_0) .£Q. 0) then 
Error bank = 0 

Else 

Error_bank = 1 

Endif 

else if (array_code .eq. 2) then 


error_array = error err ey = 2048 
Error_bank = LIBSEXTZV(19,2,memory_register_0) 


endif 
else if (10011) then 
if (array_code .eq. 1) then 


error_array = error_array - 256 
Error_bank = 0 


else if (array_code .eq. 3) then 
error_array = error_array = 512 


If (LIBSEXTZV(17,1,memory_register_0) .€Q. 0) then 
Error_bank = 0 


a nn a a tt a ts bn 5 2 a Ln > bs © in 1 ts a is 2 ts tt 
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se 
Error_bank = 1 


if (error_array .le. 0) then 
error_array = i/2 


to 26 
endif 


25 continue 


aS a 8 nt tt 


= EASE PTE SMGDNERRE AEA Besenorson 


é 26 call Linchk (lun,1) 
Write (lun,28) error ban 
28 Fereeettet $f) TAR RAY SANK s, 


1 reetapnegec ee _bank)>,". IN ERROR") 
Call LINCHK (Lun,1) 


urite tun, 50) error array 
30 Forsett -t40,ARRAY #',i<compress4 (error_array)>,". IN ERROR’) 


cal} output (Lun,memory_register_0,vimemory_register0,29,29,31,'0') 


call Linchk (lun,1) 


ite(Lun,35) memo ister.1 
35 Yormat(’ "8, "CoRitrtse 28 8 


if (LibSextzv(25,3,memory_register_1) .eq. 0) then 
colt output (lun,memory_register_1,vimemory_register1!,28,28,28,'0') 


S2SBPE82 


call Linchk (lun,1) 


yr itetiyn,40) "DIAGNOSTIC MODE’ 
40 ot | dal -t40,a) 


a ek ak tk a od od = 2 = 2 a Ls = 2 8 8 


call Linchk (lun,1) 


write(lun 345) memory _r gisser ye 
45 format(’ ',t8, "CSR2*T 5 


if (.not. diagnostic_mode) then 
arrays_present = 0 

do 47,1 = 0,15,2 

array.code = LibSextzv(i,2,memory_register_2) 
if (10016) then 

if (array_code .eq. 3) then 


a a at os et 


arrays_present = arrays_present + 2 
else if (array_code .eq. 2) then 
arrays_present = arrays_present + 8 
endif - ne 


else if (10011) then 


SSRIS TIAN IS SSNS UREN AS oe 


ieee 98:97 


if (array.code .eq. 1) then 


arrays_present = arrays_present + 1 
else if (array_code .eq. 3) then 
arrays presen. = arrays_present + 2 
endit r me 


continue 

call Linchk (lun,1) 

write lun 9) ore resents’ 8 

loreett™ MEMOR si ; 

1 raat’ sts 6 Per sreseneetie)>,” ft" ) 

call output (lun,memory_register_2,vimemory_register2,16,16,16,'0') 
start_address = LibSextzv (17,7,memory_register_2) 
call Linchk (lun,1) 

write(lun, 55) start address*128 

format(' *,t40,"MEMORY BASE ADDRESS = 

1 raat ott (start Raddresse128)s)* AK'S 

endif 

call Linchk (lun,1) 

if (10016) then 

write(lun 60) *L0016° 

sprasts” £40, CONTROLLER IS ',a) 

else 


write(lun,60) °L0011° 
endif 


return 
end 


VA Pa 
DISKSVMSMASTER: it oR RCIMEMORYS. FOR; 1 


"S750 


PROGRAM SECTIONS 


Name Bytes 
9 SCODE if 
SPDATA 1 
2 SLOCAL 68 


Total Space Allocated 2363 


ENTRY POINTS 
Address Type Name 
0-00000000 4S750 


VARIABLES 
Address Type Name 


ARRAYS PRESENT 
DIAGNOSTIC_MODE 
ERROR_BANK 


ARRAYS 
Address Type Name 


1*4 BUFFER 
10 CHAR VIMEMORY_REGISTERO 
CHAR VIMEMORY_REGISTER1 
CHAR VIMEMORY_REGISTER2 
LABELS 
Address Label Address Label 


aesggee :mmsoNs 


1-0000015D 55° 185 60° 


~90000185 £0) 
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Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Address Type Name 
4 44454 I*4 ARRAY_CODE 
0000 [+4 crore i 


REGISTE 
OO00C I*4 MEMORY _REGISTE 
00000 I*4 START_ADDRESS 
Bytes Dimensions 


i (3) 

1 (29:31) 
4 (28:28) 
3 (16:16) 


Address Label Address’ Label 


0-0000022E 26 
ee ae 


Address’ Label 


N38 


Address’ Label 


at 25 
1-0000012C 45° 


a 


VEU OONAOULS WN" OVDONOUS WN OVE 


Ww 


SSsssossesoooosooeess 


DONO UE WO OOVNOUE WN O0OnN 


m5 
pea "er8e-18R POiBTiTE «= BScbinSRasteR:TEAE-Secamemorys.ror;1°% “4 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 I1*4 DECODE_ECC I*4 LIBSEXTZV LINCHK MOVC3 OUTPUT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ot 
03 
1§ 


O-DEOK WM INOF-Deor = DROS UM TNOP- DP OSVUMTNOF- DCO PIT Cor 
= SS FS FS SS FGRAARARRARASCOOCSOSOOORRR 


SOOCOSOSOSOOOSOOSOSOOSOSOSOSOGSOOSSOSOSSOSOSSOSOSOSSOSSSSSSSSSSOSSSOSSSOOooooedso 


OAT Te Bae MSARERAN V2 at" 28 amenonys.ron:1e% 


sep-1at 9 


1 


wr 


+ 
om 


uw 


HOAOHOAHAAHAAaAaAaan 


eat st tt et 
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Subroutine MS730 (Lun,memory_register_0) 


Functional description: 


This routine displays the memory registers for the 11/730. The 
format of the buffer is as follows. 


Pf wece mewn een mn aws more wrmranescmoceeen } 
{ memory csr0 H 


$emeoneenan cece nora e Seeman m nan eam aeaa $ 


H memory csri H 


ewe enn mre meee meme e- + see momar ocane + 


= 
mm 
ta Rint enn ® 


MMA = 


taint 


1m 


SSsssososooeoeooSss 
WN SO OCONOAULSWN “OO ONOUSWN Oo 


assesses 


Pitisikisieaasasaee 


} memory csr2 : 
te ecermewn oe ne eae coe ea -er cen anes oes $ 
Implicit none 
byte lun 
integer*4 memory_register_0 
intesers4 buttert3)> m 
integer*4 memory _csr 
integer*4 memory_csri 
integere4 memory_csr 
equivalence (buf fer(1) ,memory_csr0) 
equivalence gpul terse; -momory.cer}? 
equivalence (buf fer(S) ,memory_csr2) 
logical! diagnostic_mode 
integert4 compress4 
integert4 decode _ecc 
integer*4 error_Bit 
integer*4 error_array 
Integer*4 error_bank 
integers4 kilo_bytes_present 
Integer*4 LibSextzv 
Integer*4 I 
charactert23 vimemory_register_1(27:28) 
ata vimemory_register_1(27) /"MEMORY MAPPING ENABLE*'/ 
data vimemory_register_1(28) /"ENABLE ‘'CRD'’ REPORTING*'/ 
character*l2 vgnenory register. | (30:50) 
data vememory_register_1(30) /*'’CRD’’ ERROR*'/ 
character*17 vimemory_register_2( £38993) 
data vimemory_register_2(24,0) /'16K RAMS PRESENT*'/ 
data vimemory_register_2(24,1) /°64K RAMS PRESENT®'/ 


call movc3 (Zval(12),memory_register_0,buffer) 


pefojelolofololelololololololololololololelololololelolololo) 
fan 


MN 2 2 2 9 3 399 9 999 oS 


fojofojqolo) 


Oooo 


Mronrr 


ee ed ed et et a==o9s° 
ee a Oe ee als 


SOOOSOSSOOSOSOSOSOSSeSoO 
PoMoPononononofoneny 


ee ee 


0 
71 
7 


PRR ret tt 


eoreees 


ARGWASSBVEA RAVI OSD 


ab aD ed tk ad ow ot 4 


10 


oon 


15 


20 


22 


ifeseoctgge 00:07:55 


if Ciand(memory_csr1,'26000000'x) .ne. 0) diagnostic_mode = .true. 
call Linchk (Llun,2) 


write(Llun, 10) menory roy 
format(/* ‘,t8, rcSROT ,t24,28.8) 


if (.not. diagnostic_mode) then 
11/730 syndrome bits are inverted so... 


call Linchk (lun,1) 


write(lun,15) libSextzv<0,7 A ele ee, lee atmmmmests inccctel 
format(’ ',t40,"ERROR SYNDROME = 2) 


error_bit = decode_ecc (LibSextzv(0,7,not(LibSextzv(0,7,memory_csr0)))) 
call Linchk (lun,1) 
if Cerror_bit .eq. -1) then 


er seetten. .20) **ECC’’ CODE, UNCORRECTED ERROR’ 
e.se 


ur ivetiyn 420) "CORRECTED ERROR, BIT #',error gpit.’ ° 
format(' t40.a,: i<compress4 (error _bit)>,: 78) 
endif 

error_array = LibSextzv(9,15,memory_csr0) 

If (LIBSEXTZV(24 Us inet ees -EQ. 1) then 
Error_bank = LIBg$exTzvi1 2,memory_csr0) 

Else 

Error_benk = LIBSEXTZV(17,1,memory_csr0) 
Endif 

Call LINCHK (Lun,1) 

Write (lun,22) error bank 

Format(’ '.140, ARRAY BANK #', 

1 TeCOMPRESSG — _bank)>,". IN ERROR’) 

do 25,i = 0,15 

if (LibSextzv(i,1,memory_csr2) .eq. 1) then 
if (LibSextzv(24,1,memory_csr2) .eq. 1) then 


error_array = error_array - 1024 
else 


VAX- 
DISK 


RF. 


-56 
SR 


= 


CIMEMORYS .FOR; 1 


—— 


PMOPOIPOPOPONIPONINININNPNPoPofnofronrefperoryd 


PRINS EEE EEE REE 


MVM RRM 
ADAAPAPAAMAMI 


[OO NNN YN DOD 


SOOOSOOOOOoOoOOooOo Oooo 
oOSoOoooo°oo OOOO COOSOOSO COCO OOOOOOOSOOOOOOoOoOO 
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— 


ercor .errey = error_array - 256 
endif 

endif 

if (error_array .le. 0) then 


el lt 


VFWN—OOONOUE WN“ O0O~I0 


error_array = i/2 


goto 27 
endif 
25 continue 
27 call Linchk (Llun,1) 
write(lun,30) error_array 
30 roreatt -t40,"ARRAY #',i<compress4 (error_array)>,'. IN ERROR’) 
en 


call Linchk (lun,1) 


write(lun,35) memory _csrl 
35 format(' *,t8,"CSR1",t24,28.8) 


if (.not. diagnostic_mode) then 
call output (lun,memory_csri1,vimemory_register_1,27,27,28,'0') 


sets output (lun,memory_csr1,v2memory_register_1,30,30,30,'0") 


call Linchk (lun,1) 

write(tun,40) "DIAGNOSTIC MODE’ 
40 format(' °,t40,a) 

endif 

call Linchk (lun,1) 


write(lun.45) penory.csr2 
45 format(’ °,t8,'CSR2",t24,28.8) 


if (.not. diagnostic_mode) then 


PAPAIN E BEE EEL EEE 


NASSSISTFERISSSLVSARFLUN AS SHVSEGEEWLSES 


kilo _bytes_present = 0 

do 50,i = 0,15 

if (LibSextzv(i,1,memory_csr2) .eq. 1) then 
if (LibSextzv(24,1,memory_csr2) .eq. 1) then 
ki te_bytes_present = kilo_bytes_present + 512 


SOOGOOOSOOOOOSOOCOOOOCOOSOSSOSOSOSOCOOOOOOOSOOOOOOOCOOOOOCOOOOOOOO 


ce ce ce ee ce ce ee ce ce ee ce ce ee ce el ce ce ce ee el ce cel el cel cel cel cell el cel el el cl cel cel seal cl cel cls cal cecal cl cel cect cca cecal cel cals cells calls cells calls 


kilo_bytes_present = kilo_bytes_present + 128 
endit 


"S730 

1 ndif 

ie : 

, 50 continue 

; call Linchk (lun,1) 

1 rite( 55) kilo bytes 
1 $5 formay tf, t40, “RERORY § 
, J 

188 

1 

185 

1 return 

1 en 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 


0-00000000 "S730 
VARIABLES 
Address Type Name 

DIAGNOSTIC_MODE 
Pee 
LUN 
MEMORY_CSR1 
MEMORY_REGISTER_O 


ARRAYS 
Address Type Name 


1*4 BUFFER 
¢ CHAR VIMEMORY REGISTER. 1 

CHAR VIMEMORY REGISTER”? 
3A CHAR V2MEMORY~REGISTER 


ree 


rese 
Ps 


ies 


a 


", i<compress4 (kilo_bytes_present)>, 


cal} output (Lun,memory_csr2,vimemory_register_2,24,24,24,'2") 


Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Address Type Name 
- 70 ise Fonen eae 
- 1*4 KILO BYTES_PRESENT 
= I*4 MEMORY_CSR 
- 08 I*4 MEMORY_CSR 


Bytes Dimensions 


{ . ) 
BE on 


VAX=11_ FORTRAN 
DISKSVMSMASTER: 


134-36 Page 49 
RF .SRCIMEMORYS.FOR; 1 


ee | 


4S730 


LABELS 
Address Label Address Label 


V=Boosoone 30° = }=BonovoFe 38° 
FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
1*4 COMPRESS4 I*4 DECODE_ECC 


ihe fep— 1984 09:07: 


Address Label Address Label 


V=Boobore | £8 a 


TScbinGRasten: PERE SkcoMEMoRYs.FoR:1°%* °° 


Address Label 


1280080100 £8 


Address Label 


PBbo00128 | $5" 


Type Name Type Name Type Name Type Name 
I*4 LIBSEXTZV LINCHK MOVC3 OUTPUT 


re 


at a 
_—. 


WBestoctaee Q0:BTsFE MEL AEORTRAN VEL EE6 ae aeye pg P00" 5 


H 6 
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Subroutine MEMORY _REGISTER_UV1 (Lun,memory_registers) 


C oe 
C This routine displays the UVAX! memory registers. 
: The format of the memory sub packet is as follows: 
C H CSR count H 
C eee en ence me meen can ae meer encore nwoannmow S$ 
C H CSR or zero H 
4! 1 C Fm wm ener een c ewe emo cn eens er ccc eee en + 
' ‘ 1 C a 2B 
001 C " ; 
0018 C . : 
JV 1 C hewmen mewn eon eee we eee eee te 
001 C : CSR or zero ' 
ee 1 C been wn wn ee et ee eR TB eR Re meee we} 
C-- 
§ Implicit none 
1 byte lun 
§ integers4 ponory Cog teveretes 16) 
integers4 error_address 
8 integers4 error_address2 
9 integer*4 oop 
integers4 compress4 
integers4 Libdextzv 
integer*4 LibSinsyv 
character*20 vicsr(0:0) 
data vicsr(0) /*PARITY ERROR ENABLE®*'/ 


character*16 ugcertg 2) 
data vecsr(2) /"DIAGNOSTIC MODE®'/ 


character*25 v3csr(14:15) 
data v3csr(14) /*EXTENDED CSR READ ENABLE®'/ 
date v3csr415) /*PARITY ERROR®'/ 


call Linchk (lun,1) 
Write (Lun, 1) 
1 Format (° *) 
do 15,loop = 1,16 
if (LibSextzv(15,1,memory_registers(loop)) .eq. 1) then 


call Linchk (lun,1) 


>S 


= 


write(lun,5) t srapory registers (ioop) 


‘ 

‘ 

0055 5 format(’ °,18,°CSR #*,i<compress4 (loop)>,t24,28.8) 

0089 call output (lun,memory_registers(loop) .vicsr.0.0,0.'0") 
it : call output Stuncaenorecreblsterst toons vacersececes'8's 


MEMORY _REGISTER_UV1 
error_address! = 
error_address! = 


error_address2 = 
error_address! = 


call Linchk (lun,1) 
Seeesits tle error 


10 format ( 
1 eee ental "hoe 


l 
l 
l 
l 


15 continue 


Return 
End 


Total Space Allocated 


ENTRY POINTS 
Audress Type Name 
0-00000000 


VARIABLES 
Address Type Name 


3-0000058 14 ERROR_ADDRESS! 
1*4 LOOP 


ARRAYS 
Address Type Name 
NOOBS be han Vics REGISTERS 
ve 


CHAR VeCcsR 
CHAR VSCSR 


ibs 
ibs 
ib 
ib 


ifoseo-19Be 00:07: 


Sqxtzv (5,7,memory_ reaistgrs(loop)) 


nsv (error address 
xtzv (5,4,memory_r 


-error_address1) 
ers(loop)) 


t 
prea (error menareees 1 bie 4,error_address1) 


address 


MEMORY _REGISTER_UV1 


ARTTY ERRoR ADDRESS, ', 
r_address1)>,'.k'S 


call output (Lun,memory_registers(loop),v3csr,14,14,15,'0") 


Attributes 

PIC CON nel LCL 

PIC CON REL LCL 
L LCL 


PIC CON RE RD 


Address Type Name 


n379000005¢_ Is4 ERROR_ADDRESS2 


Bytes Dimensions 


ye 


(14:15) 


VAX-11 FORTRAN Rif -56 
DISKSVMSMASTER: CERF .SRCIMEMORYS .FOR; 1 


RD NOWRT LONG 
RD NOWRT LONG 


WRT LONG 


Page 


53 


( 
( 


DADAM MAA 


MEMORY _REGISTER_UV1 
LABELS 
Address Label Address Label 
1=0000002A 1° 1-0000002E 5° 


‘espera AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 COMPRESS4 1*4 LIBSEXTZV 


if see 19g PO:BTSTR «— DERKAUMEMASTEN EERE sghcamemorys.ror;1°%* >” 


Address Label Address Label 


1-00000046 10° ee 15 
Type Name Type Name Type Name 
I*4 LIBSINSV LINCHK OUTPUT 


eS eww ee oe ee . ua * = i Rh he eee ee ee eee —_—" Sr? =, _ —— + 
FSS SF SSF TAANAKHARAAHAASG 06650505 0K 
x LO OE EE EO EF EO EM EO Om 


SOOSSOSOOSOOOSSOSOSOSOSOSOOSOOSSOSOSOSOSOOSOSSCSOSOSOOOSSOSOSOSOSSSOSOSSSOSooo 


4-5 


w 
w 
& 
© 
ae 
*. 
S 
fa 
2 
ia) 
> 
« 
= 
= 
a] 
a 
Oa 
” 
. 
te 
x 
nus 
-— 
<5 
wn 


RTR 
T 
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+ 
+ 


Functional description: 


This module maintains a List which is used to produce a etsplay 
that shows where and how many memory errors have occured. he format 
of the List is shown below. 


Geo raerenetreonorwreecr = wmrowreasn se eeaoceaoee a 


} flink1 ' 


geet nn me wee Re tee ee Rem eee we + 


' blink! ' 


a wece wre ewe n TB © ee Sew ee Bw OBO reese + 
H logging sid ' 


$wwmanmoeramneare se cece suwcacanwmecccacece + 


H root node memory flink H 


Goeeeeeneca wnmecreen eee amaancraoneeneate + 


: root memory node blink ' 


¢oemoe enw rr srr eowmonnweer renee cenes= + 


} memory node entry count ' 


ww en new noceee Ge ce wmwemrsrane sa mroene $ 


+ Sere tre rr 2 e ®eee®e2@e2 ee 2eneenaon eww aaa + 


: flink2 H 


pee e ow anew meron womens nen enemas $ 


' blink2 ' 


> wae wne amo ec ee semen eee one ee we eB ee em we Oe + 


‘ memory node ! 
H rout array flink H 
: root erray blink : 


wm mee ew nes reece wen we om mm we wm eee $ 


: array entry count ' 


tewme emote ner ere eee omnes coms emcee en $ 


NOUS WUN—"OOONOuM 


wn 


uw 


14 
91 
3 
94 
9 
9% 
91 
9 
% 
0 
01 
6! 
04 
0: 
0¢ 
01 
0 
0s 


+ SOSSSSSSSSSSSSSSSSSBSSBSSOSOSISOSOGQ ®OSOe®e + 


' flink3 i 


a SS SSSSSSSSSSSSSSSSSSSS S222 2H E222822 + 


: blink3 H 


¢ we oeroecec sno rear e meer ewe enwonamwe } 
H array H 
geome rem meme eee eee ee were ee ewer ewe n> 
: root array bank flink ' 


temo mero wre moa mano name orem ane moe $ 


: root array bank blink : 


$e eee es see wmm omen mrmarore weer ounscan + 


H array bank entry count } 


few eon sen noe cc ero oem ema n ce meme won} 


eh tt 


ee ae ee es 


SSE 


> 


=+ 


DUAN 
WN —OOOVNOULS WMO 


== 


: flink4 ' 


¢eemenesec ae cac emo wmeemra rer ewsoeun 


H blink4 H 


¢ ww sew oe senses coe seme sce eco eoeaese sa ¢ 


+ 


—+— 


Se 


POOOAOOOOAODOAOOAOOOAOOOOOOOAOOOOOOOAOOAIOOOAOAOAAAAOOAOOOOOOOOOOOA4 


= 


n 6 
ME Feen eRe PORTE Pac RteteN Feat SScamemonvs.ronsnm” 8 en 


} array bank : 


town wwe em eee oe ene eee rere e mamma + 


H root array bit flink H 


$e woe mr crear sn eece nace ere nraconas oe 


H root array bit blink H 


$e em ecoer ew wwme sneer cee = Cem nO amma nea 


i array page entry count 


. 2 See see 2Zo2Z ZT 2 BSF Ae ZB BeBe ess enor ne oe cs aw 


ee Swe sesEcamn amore mow e + 


— 
pas 
te 
=] 

Yr 
w 


} blinks H 


dma won mw mean emo seem ae weoeseast} 
' array bit ' 


temo wn eee teases son cee meee emer ew oem es + 


: error count ' 


gem nm emcees Oo Een CoO Ee OE ee awseaeancet+ 


+ 5s 
x PARA SARA 


POAAAAAAOAAOAAOAAAOOON 


ee 


Subroutine MEMORY_Q (search_sid,search_memory_node, 
search_array,search_array_bank,search_array_bit) 


oo 
Wwn— 


Implicit none — 
0086 byte lun 
8 integers4 buf fer0(2) 
integers4 buf fer1(6) 
9 integers4 purserese} 
integer*4 buf fer5(6) 
1 integere4 buf fer4(6) 
§ integer*4 buf fer5(4) 
integer*4 root_logging_sid_flink 
: integer*4 root_logging_sid_blink 
equivalence (buf fer0(1),root_logging_sid_flink) 
equivalence (buf fer0(2),root_logging_sid_blink) 
integere4 flink1 
integer*4 ink! 
1 integer4 logging_sid 
§ integere4 root_memory_node_flink 
integere4 root_memory_node_blink 
: integers4 memory _node_entry_count 
equivalence (bu Sferi(1),flink1) 
equivalence (buf fer1 ( gopeing®? 
equivalence (buf fer1(3), ogging_sid) 
equivalence (buf fer1(4),root_memory_node_flink) 
10 equivalence (buf fer1(5),root_memory_node_blink) 
1 equivalence (buf fer1(6) ,memory_node_entry_count) 
18 integere4 ft inks 
14 integers4 blink 
15 integert4 memor y_node 


MEMORY _Q 


— a 
NOUS WN 


— 


ee ee ee De ee ed ed ed ed od ed ed dd dd 


PAVIA VTIVIVIVUIVIE BEELER 


SOOOSOOOCSOOOSSOSSOOOCOOOOoOooOooOo 


me a a a de ot se tt 


integers4 
integers4 
integer4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integere4 
integer*4 
integer*4 
integere4 
integer*4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integer*4 
integer*4 
integer*4 
integers4 
integere4 
integers4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integer*4 
integer*4 
integers4 
integers4 


equivalence 
equivalence 
equivalence 
equivalence 


integert4 
integere4 
integere4 
integers) 
integere 

integers4 
integere4 
integers4 


N 6 
Br3ep= 1986 $2304 18 
root_array_flink 


root_array_blink 
array_entry_count 


(buf fer2( dof Links? 
(buf fer2(2) blinked) 
(3) ,memory_node) 
ay root errey 7} ink} 


),root_array_blink) 


( 
(buf fer2( 
(6) ,array_entry_count) 


(buffer 


flink 
blink 
array 
root_array_bank_flink 
root _orrey bark Bt ime 
array_bank_entry_count 


£1} fh inks) 
2G; «BL tem ) 
(3) ,array, 
(4) ,root_aurray_bank_ flink) 
(5),root_ar: ay_bank_blink) 
(6) ,array_bank_entry_count) 


array_bank 

root_array_bit_flink 
root_array_bit_blink 
array_bit_entry count 


array_bit 
error_count 


(buf fer5(1), flinkS) 

(buf fer5(2) ,blink5S) 

(buf fers(5) ,array_bit) 
(buf fer5(4) ,error_count) 


insert_blink 
Logging_sid_entry_count 
logging_sid_entry_address 
memory _node_entry_address 
array_entry_address 

array _penk entry address 
array_b f entry_address 
search_sid 


Page 58 
CIMEMORYS.FOR; 1 


MEMORY_Q 


pejolelelelelelololelolelelalolololololelalelololololol ola!) 
RIED ek dd od ad od DD 


LSSSLESLASLESELEALATAS SSNS AHO 


Soess 
wr 


NNN INN ee nro biee Se 
DONO US WN OO OOVNOUSWN oO NOuw 


COOOCCOCOCOSSO: 
Mrmr 


10 


15 


20 


ifestn-1964 90:07:35 


integers, search_memory_node 
integers4 search_array 
integer*4 search_array_bank 
integert4 search_array_bit 
integers4 compress4 
Integer*4 I 

Integer*4 J 

Integer*4 K 

Integer*4 L 

Integer*4 ™ 

Integer*4 LibSextzv 
Integer*4 Root, fink 
Integer*4 Sid_count 
Integer*4 Node_count 
Integer*4 Array_count 
Integer*4 Bank_count 
Integer*4 Bit count 
lLogical*1 Lib$Sget_vm 


logging_sid_entry_address = root_logging_sid_flink 

do 100,i = 1,logging_sid_entry_count 

call movc3 (%val(24) ,%val(logging_sid_entry_address) ,buffer1) 
if (search_sid .eq. logging_sid) then 

memory _node_entry_address = root_memory_node_f link 

do 90,j = 1,memory_node_entry_count 

call movc3 (%val(24),%val (memory_node_entry_address) , buf fer2) 
if (search_memory_node .eq. memory_node) then 

array entry_address = root_array_flink 

do 80,k = 1,array_entry_count 

call movc3S (%val(24),%val(array_entry_address) ,buffer3) 

if (search_array .eq. array) then 

array_bank_entry_address = root_array_bank_flink 

do 70,1 = 1,array_bank_entry_count 

call movcS (%val(24),%val(array_bank_entry_address) ,buffer4) 
if (search_array_bank .eq. array_bank) then 
array_bit_entry_address = root_array_bit_flink 

do 60,m = 1,array_bit_entry_count 
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CIMEMORYS.FOR;1 
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MEMORY _Q 


wn 
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25 


60 


70 


75 


7 
TESeoe}aR 90:07:3 
call movc3 (%val(16) ,2val(array_bit_entry_address) ,buffer5) 
if (search_array_bit .eq. array_bit) then 
error_count = error_count + 1 
call movl (error_count,%val(array_bit_entry_address + 12)) 


return 
endif 


array_bit_entry_address = flink5 

continue 

call moveS (%val(0),,%val(0),%val(16) ,buffer5) 

if (LibSget_vm(((16+7)/8)*8 array_bit_entry_address)) then 


call insque tay oy 4 bit_entry_address), 
1 Xval(root_array_bit_blink)) 


array_bit = search_array_bit 

call movq (array_bit,%val(array_bit_entry_address + 8)) 

array _bit_entry_count = array_bit_entry_count + 1 

call movl (array_bit_entry_count,%val(array_bank_entry_address + 20)) 
goto 25 

endif 

endif. 

insert blink = blink4 

if (array_bank .gt. search_array_bank) goto 75 
array_bank_entry_address = flink4 

cont inue 

insert_blink = root_array_bank_blink 

call movc5 (Zval(0),,Zval (0) val (24) ,buffer4) 

if (LibSget_vm(((24+7)/8)*8 array_bank_entry_address)) then 
call insque (Zval(array_bank_entry_address) ,Zval(insert_blink)) 
array_bank = search_array_bank 

root_array_bit_flink = array_bank_entry_address + 12 
root_array_bit_blink = root_array_bit_flink 


P 0 
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ae Bee 18be $a:b1:18 — DISKSYMSRASTER: TERE SRCIMEMORYS.FOR;1°™ ag 
call movcS (%val(16) ,array_bank,%val(array_bank_entry_address + 8)) if 
array _bank_entry_count = array _bank_entry_count + 1 16; 
call movl (array_bank_entry_count,%val(array_entry_address + 20)) 1g; 
‘ 
i is 
cnat” 18 
insert_blink = blink3 4 
if (array .gt. search_array) goto 85 17 
array_entry_address = flink3 ae 
80 cont inue oir 
insert_blink = root_array_blink ae 
1985 call moveS (Zval(0),,%val(0), val (24), buffers) ab 
ig if (LibSget_vm(((24+7)/8)*8,array_entry_address)) then ote; 
i call insque (%val(array_entry_address) ,2val(insert_blink)) ate; 
16 array = search_array 1s 
18 root_array_bank_flink = array_entry_address + 12 13 
9 root_array_bank_blink = root_array_bank_flink 19; 
¢ call move3 (%val(16) array, %val(array_entry_address + 8)) Ne; 
¢ array_entry_count = array_entry_count + 1 Lb 
g call movl (array_entry_count,%val (memory_node_entry_address + 20)) Ag 
i 5 
ee oe : 
insert_blink = blink2 -d 
3 if (memory_node .gt. search_memory_node) goto 95 
memory_node_entry_address = flink2 
? 90 continue 
§ insert _blink = root_memory_rode_bl ink 
| 
| 


100 


Tee 0:81:49 
call movcS (Zval(0),,%val(0),%val (24) ,buffer2) 
if (LibSget_vm(((246+7)/8)*8 ,memory_node_entry_address)) then 
call insque (%val(memory_node_entry_address) ,ival(insert_blink)) 
memory node = search _memory_node 
root_array_flink = memory_node_entry_address + 12 
root_array_blink = root_array_flink 
call movc3 (%val(16) ,memory_node,%val (memory_node_entry_address + 8)) 
memory _node_entry_count = memory_node_entry_count + 1 


gett movl me nay node_entry_count, 
Zval (lLogging_sid_entry_ adifess +°20)) 


seats" 
endif. 

lLogging_sid_entry_address = flink! 

cont inue 

call movcS (Zval(0),,%val(0),%val(26) buffer) 

if (logging_sid_entry_count .eq. 0) then 
root_logging_sid_flink = Zloc(root_logging_sid_flink) 
root_logging_sid_blink = root_logging_sid_flink 
endif 


if (LibSget_vm(((24+7)/8)*8, logging_sid_entry_address)) then 


all insque (Zval(logging_ sid gaer address), 
H Lval (root _logging_s 2% "Btink? on 


Logging_sid = search_sid 

root_memory_node_flink = logging_sid_entry_address + 12 
root_memory_node_blink = root_memory_node_flink 

call moveS (Zval(16),logging_sid,Z%val(logging_sid_entry_address + 8)) 
lLogging_sid_entry_count = logging_sid_entry_count ¢* 1 


to 5 
gndit 


return 
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F 
MERORY_Q 16-Sep-1 :07: VAX-11 FORTRAN V¥3.4-56 P 63 
§-900- 1382 90:87:33 DI SKSVMSMASTER: LEAF ,SRCIMEMORYS.FOR:1° °° 
1 
f This royt ine voyerns the root flink and the number of entries for the 
3 memory information queue. 
ntry GET_MEMORY Q_INFO (root _flink,sid_count,node_count,array_count, 
j bank_count ,bit~cunt) s " 


Root flink = roo Loggingsid.flink 

Sid_fount = loggifig_sid_entry_count 

Node_count = memory _node_entry_ count 
Array_count = array_entry_count 

Bank Count = array Bank eftry count 

Bit_Count = array_Bbit_eftry_count 


Return 
End 


SH st et 


OnNOuw 


PROGRAM SECTIONS 


Name Bytes Attributes 
SCODE 925 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA H PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 60 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1541 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000375 GET_MEMORY_O_INFO 0-00000000 MEMORY_Q 
VARIABLES 
Address Type Name Address Type Name 
ARRAY ARRAY _BANK 
ARRAY _BANK_ENTRY_ADDRESS ARRAY _BANK_ENTRY_ COUNT 
ARRAY _BIT ARRAY_BIT_ENTRY_ADDRESS 
ARRAY _BIT_ENTRY_ COUNT ARRAY_C 
ARRAY-ENTRY_ADDRESS ARRAY _ENTRY_COUNT 
OUNT BIT COUNT 
BLINE BLIRK 
BLINK BLINK 
BLINK COMPRESS4 
awe C FLINK 
LINK FLINK 
FLINK FLINK 
| INSERT_BLINK 


if-se ep- 7: VAX-11 FORTRAN ¥3.4-56 Page 64 7 
at 99: 8 af DI SKSVMSMASTER: LER RF .SRCIJMEMORYS.FOR; 1 - 
6 isd LIBSEXTZV 
LOGG S44 *4 tone NG_SID_ENTRY_ADDRESS 
LOGe ING D_ENTRY_COUNT - at a 
MEMORY wose ENTRY_ADDRESS *4 MEMORY- NOD Pi ily for 
#4 ROOT_ARRAY_6 Bt INK 
*4 ROOT“ARRAY-BIT IV at NK 
*4 ROOT_ARRAY_| 
@ I*4 ROOT _FLINK 
#4 ROOT-LOGGING SID_FLINK 
#4 ROOT MEMORY _RODE-FLINK 
oe SEARCHORERORY NORE 
0008a 14 arent 
Address Type Name Bytes Dimensions 
1*4 BUFFERO ’ (3) 
I*4 BUFFERI (6) 
1*4 puerene 4 (6) 
1*4 BUFFER 4 (6) 
1*4 BUFFERS 4 (6) 
I*4 BUFFERS 6 (4) 
LABELS 
Address Label Address Label Address Label Address Label Address’ Label Address Label 
0-CO00003A 1 0-0000009C 15 -000000C 0-000000F9 25 ae 60 
- 70. aettttat74 8 ee 80 titties $s ae $3 0-0000029C 95 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
INSQUE L*1 LIBSGET_VM movc3s MOoVCS MOVL MOVva 
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Functional description: 


dt entry point is used to display the memory error occurrance List 
built by memory_q. 


Subroutine MEMORY _DISPLAY (Lun) 


Implicit 


equivalence 
equivalence 


integers4 
integers4 
integers4 
integers4 
integer*4 
integer*4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivelence 


integers4 
integert4 


equivalence 
equivalence 
equivalence 
equivelence 
equivalence 
equivalence 


integere4 
integer*4 
integere4 
integere4 
integere4 
integere4 


ceeeee 


ng_sid_flink 
ng_sid_blink 


),root_logging_si 
),root_iogging_si 


€ $8 


-f 
b 


> Fans ee ie | 
= 
c 


root _memory_node_bl ink 
memory _node_entry_count 


(buffer1(1),flink1) 

og; pho 

( ). Logging_sid) 

af oF 00 memory node_flink) 
(6) 


cs 
ec 


,root_memory_node_bl ink) 
memory _node_entry_count) 


feee 


—e 


memory_node 
oot_array_flink 

oot_array_blink 

rray_entry_count 


buf fer2(1).,flink2) 
fer2(2) .blinkd) 
(3) ,memory_node) 
(4) ,roct_array_flink) 
(5) ,root_array_blink) 
(6) ,array_entry_count) 


~~ Pre erernr 8355 c= ARR 


arr 
root_array_bank_flink 
reot_array.. ank_ blink 
array_bank_entry_count 


Vv 
) 


it 
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MEMORY _DISPLAY 


equivalence 
equivalence 


equivalence 
equivalence 


integers4 
integere4 
integers4 
integers4 
integers4 
integers4 


equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integere4 
integers4 
integere4 
integers4 


equivalence 
equivalence 
equivalence 
equivalence 


ntegere4 
lncokered 


byte 


btink’> 
,erray) 


-root_arra 
,array_ban 


root array bit tt nk 


(buf fer4(1), fl inks) 

(buf fer4(2) ,bLink4) 
fer4(5) ,array_ban 

(4) ,root_arra 


buf (2) ,blink5) 
buf fer5(35) 

buffer 
nsert_blink 


(1), flink5) 
earray_bit 


array_entry_address 


orrey penk, Sntry_ecdress 


array_b f entry_addre 
search_sid 
search_memory_node 
search_array 
search_array_bank 
search_array_bit 


ar xweH 


LibSextzyv 
compress4 


lun 


k- 


k) 
Y. 


) 


e 
ing_sid_entry_count 
onbind’ sid entry oddress 
memory _node_entry_address 


-root_array_bank_flink) 


bank blink) 
entry count) 


bit_flink) 


( 

(buf 

(buf fer4(5) ,root_array_bit_blink) 
(buf fer4(6) ,array_bit_entry_count) 
f 
b 


(4), ,error_count) 


? 


16-Sep-1 
b-Sen-1 
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CIMEMORYS.FOR; 1 - 


k 7 
Peon SSep=1984 14:01:18 DISKSUMSRASTER-LERF.SRCIMEMORYS.FOR:1 


C 


—D at 
on 


ine GET_MEMORY_Q_INFO (root. Logging. sid. flink. Loggin _sid_entry_count, 
memory node_entry_count,array_entry_count,array_Bbank_entry_count. 
array_Bit_entry_count) 

lLogging_sid_entry_address = root_logging_sid_flink 

do 200,11 = 1,logging_sid_entry_count 
5 call movc3 (Zval(24) ,2val(logging_sid_entry_address) ,buffer’) 

call fretof (lun) 


call Linchk (lun,2) 


1 write(lun,110) logging sid 

110 format(/' eS unnaRy Or MEMORY ERRORS LOGGED BY SID ',28.8) 
memory _node_entry_address = root_memory_node_flink 
do 190,j = 1,memory_node_entry_count 


w 


call movc3 (Zval(24),%val (memory_node_entry_address) ,buffer2) 
call Linchk (lun,5) 
if (LibSextzv(24,8,logging_sid) .eq. i) then 


write(lun,115) ‘TR # nenory node 
115 format(/' |", "CONTROLLER AT ‘7a, i<compress4 (memory_node)>,'.") 


else if (LibSextzv(24,8,logging_sid) .eq. 2) then 
write(lun,115) "SLOT INDEX #* ,memory_node 
endif 
write(lun.117) *ARRAY#' ,"BIT#', "BANK', *CORRECTED', FATAL’, 
1 "ERRORS" ,"ERRORS' 

117 format(/* *,t8,a,t16,a,t24,a,t35,a,t50,a,/, 
1 t -@,t50,a) 
array_entry_address = root_array_flink 
do 180,k = 1,array_entry_count 
call movc3S (%val(24) ,fval(array_entry_address) ,buffer3) 
array_bank_entry_address = root_array_bank_flink 
do 170,1 = 1,array_bank_entry_count 
call movcS (Zval(24) ,%val(array_bank_entry_address) ,buffer4) 
array_bit_entry_address = root_array_bit_flink 


el ee ee eel ee ee ee ee ed ed a ed ed ed nd ed oe wd od dd ts od wd dt 


PPPS 
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do 160,m = l,array_bit_entry_count 


MEMORY DISPLAY if-se Sep-1 7: VAX=-11 FORTRAN V3.4-56 Pa 9 
7305-138 92: 84 ta DISKSVMSMASTER: CERF .SRCJMEMORYS.FOR; 1 mei 


call moved (Zval(16) ,2val(array_bit_entry_address) ,bufferS) 
5 call Linchk (lun,2) 


if ¢ 
1 orray ene. =1 


tad 


OOCOCCoococoo 


1 
i array. bank .ne. -1 
is erray. bit .ne. =1 
write(lun, 120) orcey rray_bit,arra error 
120 Formats otto tee Te Sea ete Ee a reer 110.1, °.") 
lse if ( 


array .ne. -1 


1 .and. 

1 array bank .ne. -1 

5 eres ote 1 
arra -eq. = 

1) then . 


BSEOeoce cece Ve wows 


write(Llun, 125) arra ore onk. rror count 
125 Formats theta ee eae eke reeeng10.1,°6") 


else if ¢ 
array .NE. -1 


1 

1 . — 

: array_bank .—Q. -1 
i array_bit .£Q. -1 
1) then 


ARGNVLSSSLEGRASLES 


ed et a ne ss 


FRRLLLRLRRLLLLLLLLLLLLAST 


Write (Lun, 197) 
127 Format (* *,T10 
Else 


rr error_count 
Dee eta ONTAY 125, "N/A", 144,110.1,".") 


rite(lun,130) error_c 

130 format(/"’* *,t44,i1 10.7 cout 
endif 

155 array_bit_entry_address = flink5 


160 cont inue 


165 array_bank_entry_address = flink4 
170 continue 

175 array_entry_address = flink3 

180 continue 

185 memory_node_entry_address = flink2 


PRRLRRERRRREKERERREEEEEE 


OONOAVE WN (OC OOVNOUS WHO 


RoRorononononononuns 2 2 3 tS 


190 continue 


MEMORY DISPLAY 


200 continue 
5 return 
end 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 916 
1 SPDATA 444 
2 SLOCAL 424 

Total Space Allocated 1626 


ENTRY POINTS 
Address Type Name 


0-00000000 MEMORY_DISPLAY 
VARIABLES 
Address Type Name 


ARRAY 
ARRAY_BANK_ENTRY_ADDRESS 
ARRAY_BIT 
ARRAY_BIT_ENTRY_ COUNT 
ARRAY ENTRY_COURT 


195 Logging_sid_entry_address = flink! 


Attributes 
S 


Address Type 


igen} te 0:07: 


SHR 
NOSHR NO 


7 
VAX=11 FORTRAN 134-36 
DISKSVMSMASTER: CERF .SR 


HR EXE RD NOWRT LONG 
oie ft RD NOWRT LONG 


RD WRT LONG 


ARRAY_BANK 
ARRAY-BANK_ENTRY_COUNT 
ARRAY-BIT_ENTRY_ADDRESS 
ARRAY ENTRY_ADDRESS 


N 

NK1 

sot 

NK 
ERT_BLINK 
GING_SI 


_SID 
LOGGING_SID_ENTRY_COUNT 
MEMORY _NODE_ENTRY_ADDRESS 
ROOT_ARRAY _| BCINK 
ROOT-ARRAY_BIT BLINK 
ROOT-ARRAY-BLIAK 
ROOT-LOGGING SID_BLINK 
ROOT-MEMORY RODE-BLINK 


SEARCH_ARRAY 
SEARCH-ARRAY_BIT 
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oO 2rrrrrer 
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Serr 


SNN NAPA AAAAAAO A UVININVIVIMUIUIVIT ES 


ornwNN 


SRRLRRLLRRRLRL PEPPER ERPRRR RR PRRR ERE RRR RRR RRR RR RRR REPRE EEEE 


COOOO000000 00090 096900096000 


MEMORY DISPLAY 1b-se0-1984 90:07: VAX=-11 FORTRAN 


-Sep- 
2-00000098 1*4 SEARCH_MEMORY_NODE 2-00000094 I*4 SEARCH_SID 
ARRAYS 
Address Type Name Bytes Dimensions 
1*4 BUFFERO $ (3) 
1*4 BUFFER! (6) 
1*4 ahd 4 (6) 
I*4 BUFFER 4 (6) 
1*4 BUFFERS 4 93 
1*4 BUFFERS 6 (4) 
LABELS 
Address Label Address Label Address Label Address’ Label Address Label Address 
1-00000042 110° 1-00000073 115° 1-00000092 117° 1-000000AD 120° 1-000000D2 193" 1-000000EF ier" 
1-00000111 130° ee 155 ae 160 et 165 ae 170 ae 175 
ee 180 ee 185 ee 190 hl 195 ae 200 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
Pi COMPRESS4 FRCTOF GET_MEMORY_Q_INFO 
*4 LIBSEXTZV LINCHK moves 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MEMORYS/OBJ=0BJ$:MEMORYS MSRC$:MEMORYS 


BUG=(NO 
/STANDARD= (NOSYNTAX ,NOSOURCE_FORM) 

/SHOW= (NOPREPROCESSOR,NOINCLODE , MAP) 

/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_'INES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 34.31 seconds 
Elapsed Time: $8 12 seconds 
Page Faults: 470 


Dynamic Memory: 236 pages 


¥3 3-36 
DISKSVMSMASTER: CERF .SRCIMEMORYS.FOR; 
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